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ro V04-00 Page 1 
SYSLOA.SRCJERRSUB.MAR; 5 (1) 


-TITLE ERRSUB730 = ERROR SUBROUTINES FOR VAX 11/730 


IDENT ‘V04-002' 


MARARAAAAAAAAAAAAASASAALELALASSAL ERASE SARE SASES LASERS RASA SRA REALS SARA RAED SD OD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONL E WIT H SUCH tt AND WITH T 


*® a 
*® ty 
-* *® 
*® * 
*® ® 
-* ® 
*® ® 
;* INC N OVE T NOT OF TW * 
;* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
} TRANSFERRED. * 
2 * 
;* THE INFCRMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHO LD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
+e CORPORA, N. * 
. ® 
;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 
‘* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
. tt 
EER Hee NI SO TRAE RIT ND See SONAR SC 
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; FACILITY: 
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NNO AA AAA AAA OUMIUIUNUINUIUIUIULE BBE EE EEE BWW WII nononononononun) = 


=OOO NOUS WN OOOO NOUS WIN 0 OD NOA UE WN OOD NOUM EWN OOD NAU EWN NI OU 


; CRD reporting must not be turned off for VENU 


0 

6 EXECUTIVE, LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 

; ; ABSTRACT: 

; ; LOADABLE SUBROUTINES USED BY POWERFAIL AND BUGCHECK. 

6 ; AUTHOR: 

; N. KRONENBERG, JULY 2, 1979. 

5 ; MODIFIED BY: 

8 v04-003 wmc00001 Wayne Cardoza St ih 

: ee peony typo in Fendoio® use ‘'-"' imme 
v04-001 TCM0010 Trudy C. Matthews — 07-Sep-1984 . 

000 For the venus processor: move turning on cache from routine 


——————, 
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ioe -005 1$-SEp-1 38 9:2 : 3:59 SYSLOA. SRCJERRSUB.MAR; 5 ” dy ve 
EXESINIPROCREG to a new routine: INISCACHE. Correct 
order in which registers are saved on the stack in EXESREGSAVE. 


v03-022 TCMO009 Trudy C. Matthews 30-Jul-1984 
When turning off CRD. taberruste in EXESINIPROCREG for VENUS, 
read the processor register and write it back to preserve 
the state of other bits in the register. 


v03-021 TCM0008 Trudy C. Matthews 23-Jul-1984 
Remove venus code that queries the console for how to set up 
gecne and FBOX state. nstead always turn the cache and 
FBOX on tone let the normal error handling code turn it off 


if its 

V03-020 DWT0214 David W. Thiel 02-May-1984 
Revise MicroVAX | TODR register simulation. 

V03-019 KDM0096 Kathleen D. Morse 27-Mar-1984 


Add missing indirection in MicroVAX I memory CSR 
CRD enabling. 


v03-018 KPLO101 Peter Lieberwirth 4-Mar-1984 
Add extra vectors ~w «Wer taee in SYSLOAVEC. These vectors 
are insurance for v4 


v03-017 KPLO100 r Lieberwirth 12-Feb-1984 
Change RPBS$B _BOOTNDT. to RPB$W_BOOTNDT, since BI devices 
will have 16=bit device types. 


v03-016 perce. Kathleen D. Morse 23-Jan-1984 


RIPININININININIDD 2 9 9 * MFOOOOOOCOOSCOCOCOOOOOOOOOOWWOMOMOMDMOMDMo~ IS 
CONOAUEWNI OOOO NAME WIN @ OOO NA UE WIN $$ 0 OD NOU EWN O OD NAME WW OOONOUS Ty 


Dm ef ee we we we) we we we we ee le ww we ww wala al alow lola lola leololololelelelolelololololololo) 


1 
1 
0 1 number of cpu-specific IPRs logged for the 
3 } 197785 an ae “microvAX I cpus. ° = 
0 1 v03-015 CWH8001 CW Hobbs 5-Dec-1983 
0 1 Add entry points A. EXESREADP_TODR and eXESURI TEP. 4 re 
0 1 . otcoes pays tees TODR register for Nautilus CPU. 
0 1 RD OBR these amount to duplicate labels Fa, 
3 ! Ore ERE D TODR. and EXESURITE _TODR. 
0 1 V03-014 KTA3088 oy! 17-Oct-1983 
$ ! Fix bug in 730 genet Bie, hes *EXESINIBOOTADP. 
0 1 v03-013 KDM0081 Kathleen D. Morse 13-Sep-1983 
3 : Create Micro-VAX I version. 
0 1 v03-012 EOnOOs3 Kathleen D. Morse 12-Jul-1983 
1 Move IPR PME into the cpu-dependent register save and 
3 } restore routines. 
1 v03-011 KDM0049 Kathleen D. Morse 07-Jul-1983 
; 1 Add the following processor registers to the cpu-specific 
1 dump IPRs routine: TODR, ACCS. Add yeege © of 
register: EXESREAD_ Top and EXESWRITE_TODR. 
1 v03-010 KDM0048 Kathleen D. Morse 07-Jul-1983 
1 Add loadable routines for coferene ing the time-of-day 
1 clock: EXESREAD_TODR, EXESWRITE_TOD 
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v03-009 TCM0007 ay f Matthews 02-Jun-1983 
Fix routine sysiSttR BIA so that it calculates the address 
of SBI adapter register space correctly. 


v03-008 TCM0006 Trudy C. Matthews 99-Feb-1983 
Store enable /disable. state of 11/790 coche ond FBOX in 
EXESGB_CPUDATA cell during system initialization. 


v03-007 TCMO00S cLRbet Matthews 11-Jan-1983 

Add ros ing. sy3 RsBiA. /598 SBIA pesteeer” initialization 

ie ORES. ae | iy? machine check handler to 
hange 11/780 machine check handler to 

write PRS SBiFS. back to itself to clear error bits. 
Add LabelS for two ‘‘extra’’ routines, that can be patched 
if extra vectors from SYS to SYSLOA are needed in between 
major releases. Make pnt et ee log the SBI registers 
from the SBI the 11/790 system disk is on. 


v03-006 TCMO0004 dy § Matthews 3-Jan-1983 
had more 11/790-spue tic code. 


v03-005 TCM0003 Trudy C. Matthews 17-Dec-1982 
Add conditional essenbl? switch to the invocations 
of 11/790-specific definition macros. 


v03-004 TCM0002 Trudy C. Matth 15-Dec-1982 
Added 11/790-specitic code to EXESINIPROCREG. 

v03-003 TCM0001 rudy C. Matthews 13-Dec-1982 
Added 11/790-speci tie code to power down/power up 
routines. 

V03-002 KTA3018 Kerbey T. Altmann 30-Oct-1982 


Remove Cl and UBA routines to another module. 
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E THE BOOT DEV SYSLOA.SRCJERRSUB.MAR;5 (4) 


P 
H .SBTTL EXESINIBOOTADP = INITIALIZE THE BOOT DEVICE ADAPTER 
1 ; EXESINIBOOTADP = GET THE SYSTEM BOOT DEVICE ADAPTER AND INIT IT 
; THIS ROUT'NE IS CALLED FROM BUGCHECK BEFORE THE BOOTURIVER IS CALLED. 
64 : INPUTS: 
64 ; R6 = RPB ADDRESS 
66 ; OUTPUTS: 
0 1 68 : RO-R2 DESTROYED 
% ; OTHER REGISTERS PRESERVED 
1 71° 
0000 fe .PSECT SYSLOA,LONG 
99 ie “ENABLE LSB 
9000 i EXESINIBOOTADP: : ; SUBROUTINE ENTRY 
66 A6 «91s: 000 78 CMPB RPBSB DEVTYP(R6),- 31S BOOT DEVICE THE CONSOLE 
40 4 43 79 DS$R_CONSOLE :BLOCK STORAGE DEVICE? 
13 00 80 BEQL YES, RE 
50 60 A6 dO 44 1 MOVL RPBSL_ADPVIR(R6) ,RO ‘GET ADDR OF ADAPTER REG SPACE 
i 
008 é INI_UBADP: ;INIT UBA 
008 
0008 34) 
8008 84? 
37 00 DA 0008 $3 MTPR #0, #PR730$_UBRESET ; INIT UBI AND UNIBUS 
09 £32 
DOE 8 
O00 61 CHECK THE VMB VERSION NUMBER. IF IT EXISTS AND IF IT IS 7 OR GREATER, THEN 
OE 6¢ + SEE IF ANY UNIBUS MAP REGISTERS TO DISABLE. 
00E 364° 
52 3406 D 0 65 MOVL  RPBSL_IOVEC(R6) R2 :PICK UP THE IOVECTOR FROM RPB 
51 10 a2 8B 13 66 MCOMW BOOS VERSION(R2) [GET VMB VERSION NUMBER 1°S COMPLEMENTED 
12 a2. 51 a] 1 6 CMPW 1,B00$W_ Eee anes Re) [CHECK AGAINST CHECK WORD IN VMB 
1 é 1A 8 BNEQ [IF NOT, ASSUME NO VERSION NUMBER 
07 «+104 é 1 : CMPW BOOsW. VERSION(R2),#7  :VERSION 7 OR GREATER OF VMB? 
1 F 6 0 BLSSU $ NO, DON'T BOTH WITH UMR'S 
52 26 a2 D 71 MOVL  BQOSL_UMR_DIS(R2),R2 ;GRAB THE NUMBER OF UMR'S TO DISABLE 
OA 1 f BEQL 40% SNONE, LEAVE 
: 
8 : THIS CODE IS EXECUTED FOR ALL PROCESSORS. ITS DISABLES ANY UNIBUS MAP 
9 > REGISTERS ASSOCIATED WITH UNIBUS MEMORY TO PREVENT CONTENTION BETWEEN 
: SBI AND UNIBUS ADDRESSES 


Sz 


essay 


EXESINIBOOTADP = INITIAL Y2E 111738 nev 19-SEpaione $4329:59 FSNSYOR Rese RNSiecman:s | PAM" Oo, 
51 0800 i ; : 8 sos, OVAL -YBASL_MAPCROD -R1 ADDRESS i FIRST REGISTER 
FB F SOBGTR R2,308 SLOOP UNTIL ALL DONE 
0 1 ‘ 408: SB <DONE WITH UBA INIT 
-DISABLE LSB 
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»SBTTL 13 tty dh sey 44 - SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
-SBTTL EXESSTARTUPADP = STARTUP ANY ADAPTERS 


EXESSHUTDWNADP = SHUTDOWN ANY ADAPTERS DURING BUGCHECK 
THIS ROUTINE IS CALLED FROM BUGCHECK BEFORE THE DUMP IS TAKEN TO 
ENSURE THAT ALL ADAPTERS THAT NEED TO BE QUIESENT ARE. 


OTHER REGISTERS PRESERVED 
-ENABLE LSB 


EXESSTARTUPADP: : 
PUSHR #*M<RO,R1,R2,R4> 


Save a register 
MOVAL BeADP_TBL_UP.RI 
BRB $ 


Address of startup table 
Join common code 


EXESSHUTDWNADP: : 
PUSHR #*M<RO,R1,R2,R4> 
MOVAL B*ADP_TBL_DWN,R1 
5$: MOVAL @#<IOCS$GL-ADPLIST- - 
ADPSL FINE> Re 
108: MOVL ADPSL_LIAK(R2) OR 


Save a register 
Address of shutdown table 


Get potater to head of adapter List 
Flink onward 


BEQL ; Branch if at end of List 
MOVL ADPSL_CSR(R2) ,R4 ; Get address of CSR 
MOVZWL ADPSW_A PTYPE(R2) ,RO ; Get adapter type code 
MOVAL (R1)CROJ,RO ; Get table entry of adap shutdown 
JSB a(RO)CROS ; Call adapter shutdown 
BRB 10$ 3; Next adapter 
gps: POPR #*M<RO,R1,R2,R4> 
0$: RSB 


: Table of addresses of adapter shutdown routines ordered 
; by adapter type in ADPSW_ADPTYPE. 


ADP_TBL_DWN: ; Address table start 
- LON -MBA 


G 0$-. 3; 0 
~ LONG 0$-. 3; 1-UBA 
LONG 0$-. 3 g- Roe 
LONG 0$-. 3; 5-MA780 
LONG SremuToou-. 3; 4-Cl 
LONG $-. ; Rsved for future expansion 


: Table of addresses of adapter startup routines ordered 
; by adapter type in ADPSW_ADPTYPE. 


ADP_TBL_UP: ; Address table start 


csaez™ 


eh 


i 


R_VAX 11/730 , 
UP ANY ADAPTERS 


- LONG 
o LON 


1S=3Eb=1386 9832 
MBAS INITIAL- 


ASINITIAL-. 
LON 


"CONG MASIWITIAL=. 
‘CONG 308- 

“LONG 

LDISABLE LSB 
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PO CPUMSPECIFIc IPR'S 1ScSEPo1984 [5:49.55 LORS LOR ees Oto kes * wm 


ec 


~SBTTL EXESDUMPCPUREG = DUMP CPU-SPECIFIC IPR'S 
DUMP CPU-SPECIFIC IPR'S INTO ERROR MESSAGE BUFFER. 


TWENTY=FOUR LONGWORDS ARE RESERVED IN THE EMB FOR CPU~SPECIFIC 
IPR'S. THE FORMATS FOR VARIOUS CPU'S ARE: 


EG 
92 & 
9 4 3 
Bi 
95 tee 
ae 
4 4 > 11/780: 11/750: 11/730: 11/790: UVAX I: 
92 470: ICR ICR ICR ICR UNUSED (0) 
092 471 : TODR TODR TODR TODR APPROX TODR 
09 406 > ACCS ACCS Accs ACCS YNUSED (0) 
92 473: SBIFS TBDR 27 UNUSED(O) © SBISTS (1st, SBI) 1 UNUSED(O) 
09 474 : SBISC CADR SILOCMP 
92 475 : SBIMT MCESR MAINT " 
09 47 : SBIER CAER SBIERR zy 
092 477: SBIS CHIERR TMOADDRS =" 
43 $78 ; 16 SBI SILO 6 UNUSED(0) 16 SBI SILO "’ 
009 4 0 : INPUTS: 
92 & ; : RO = ADDR IN EMB OF START OF CPU-SPECIFIC REGISTERS= 
09 4 3: OFFSET EMBSL_CR_CPUREG 
009 4 5 : OUTPUTS: 
009 4 § : RO,R1 DESTROYED 
0092 488: ALL OTHER REGISTERS PRESERVED 
6098-400 
a8 491 .ENABL LSB 
09 438 EXESDUMPCPUREG: : ; SUBROUTINE ENTRY 
$9 495 
09 09 
09 10 
$95 858 
80 1A DB 009 ; MFPR = #PR730$_ICR,(RO)+ :LOG INTERVAL COUNT REG, 
0 1B dB 009 ; MFPR  #PR7 at TOD ODR. (RO? + ; TIME-OF-DAY REG 
0 23 D 9 MFPR  #PR730$7ACCS.(RO)+ + ACCELERATOR CONTROL REG 
1 15 D0 0098 0 MOVL  #<<EMBSC_CR_CODE - EMBSL_CR_ CPUREG>/4>-3, RI :-3 FOR ICR, 
9E 1 7 TODR, ACCS ALREADY LOGGED. 
9E : [THERE AR No OTHER cP “SPECIFIC 
80 D4 009 10$:  CLRL  (ROD+ : REGISTERS TO LOG, $O ZERO THE 
FB O51 OFS A 4 SOBGTR R1, 10% : SPACE IN THE LOR oR MSG BUFFER 
A 
A 
A § 90$: 
05 OOA 7 RSB 
a4 7% .DISABLE LSB 
ad = «575 
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64 


IN 
(P) 


EXESREADP_TODR:: 
NAUTILUS ae be NEEDS TO SE A SEPARATE ROUTINE TO ACCESS PHYSICAL TODR 
THE PHYSICAL 


6 
NES FOR VAX 11/738 SEP=19 AX/VMS Macro v04-00 p 
5 READ TIMECOFSDAY CLO 1ScSEP=T9RG SoicGi59 ANCVBS Baer e Oe OeaR:s | Paae 


.SBTTL EXESREAD_TODR (P) = READ TIME-OF-DAY CLOCK 
READS TH TIME~OF DAY uct Ock SINCE IT MAY BE ACCESSED IN 
DIFFERENT WAYS: AS TERNAL PROCESSOR REGISTER AS PART 
OF THE CON SOL E, OR BY NaEA NDING ADDRESS IN 1/0 AcE 
MAY ALSO BE IN DIFFERENT FORMATS AND HAVE TO BE 2ONV are. 
INPUTS: 

NONE — 
OUTPUTS: 

RO = TODR VALUE 

ALL OTHER REGISTERS PRESERVED 
; SUBROUTINE ENTRY 


REGISTER IN THE CONSOLE PROCESSOR FOR TWO REASONS. FIRST 


: TODR HAS ONE SECOND RESOLUTION INSTEAD OF 1 0 MSEC RESOLUTION. SECOND, A 
; REFERENCE TO THE PHYSICAL TODR IS A VERY SLOW, NON-INTERRUPTIBLE ACTION. 
: NON-PHYSICAL NAUTILUS TODR REFERENCES P use THE EXESREAD_ TODR ENTRY 
: WHICH WILL FABRICATE THE TIME FROM THE wAbKDUORD SYSTEM TIME. 

; NOT NAUTILUS - FALL THROUGH TO READ_TODR 

EXESREAD_TODR: : ; SUBROUTINE ENTRY 

MFPR  #PR730$_TODR,RO ; TODR IS A PROCESSOR REGISTER. 
RSB 


ERRSUB730 = ERROR SUBROUTINES FOR VAX 1 1730 “SEP-1984 00:54: AX/VMS Macro V04-00 Page 11 
oe s002 EXESWRITE_TODR (P ne = WRITES TIME=OF -DAY i met 7 9 29:59 YeYSLOR. SRCJERRSUB.MAR; 5 se 8) 
A $ - .SBTTL EXESWRITE_TODR (P) = WRITES TIME-OF-DAY CLOCK 
A $ WRITES THE TIE-OF <DAY CLOCK, SINCE IT MAY BE ACCESSED IN 
A + DIFFERENT WAYS: N INTERNAL uP hoe SSOR REGISTER, AS PART 
A : OF THE CONSOLE, oR sat READING AN ADDRESS IN I/O SPACE. IT 
A f : MAY ALSO BE IN DIFFERENT FORMATS AND HAVE TO BE CONVERTED. 
A $73 : INPUTS: 
A 673 : RO = CONTAINS VALUE TO BE WRITTEN INTO TODR 
A orf > OUTPUTS: 
OA 679 : NEW TIME VALUE WRITT EN INTO TODR. 
OA 0; ALL REGISTERS PRESERV 
OaB GBD 
ooh 6 EXESWRITEP_TODR:: ; SUBROUTINE ENTRY 
OA8 685 ; NAUTILUS PROCESSOR NEEDS TO USE A SEPARATE aRQUTINE TO ACCESS PHYSICAL TODR 
00AB 6 : : REGISTER IN THE CONSOLE PROCESSOR FOR FIRST, THE PHYSICAL 
00A8 6 : TODR HAS ONE SECOND RESOLUTION INSTEAD OF ° Anse "RESOLUTION. SECOND, A 
00AB 6 8 : REFERENCE TO THE PHYSICAL TODR IS A OW, NON-INTERRUPTIBLE ACTION. 
00AB 6 : NON-PHYSICAL NAUTILUS TODR REFERENCES WILL USE THE EXESWRITE_TODR ENTRY 
0A 690 : WHICH WILL FABRICATE A NEW QUADWORD SYSTEM TIM 
- $36 3 NOT NAUTILUS = FALL THROUGH TO WRITE_TODR 
Q0AB 694 EXESWRITE_TODR:: ; SUBROUTINE ENTRY 
ae 
OA 700 
OA8 701 
Way 
18 50 DA OOAB 708 MTPR RO, #PR730$_TODR ; TODR IS A PROCESSOR REGISTER. 
OOAB 711 
OAB 715 
OAB 716 
OAB 4 
05 OOAB 722 RSB 


N 6 
ERRSUB730 = ERROR SUBROUTINES FOR VAX 11/730 “SEP-1984 00:54: AX/VMS Ma cro v04-00 P 1 
vayeti EXESRECSAVE oO SAVE CRURSPERIEIC TPR'S — 1SaSEpa108G $oszG25S LOE NRS Beer lt garss | ame 18, 

at ? 4 ; .SBTTL EXESREGSAVE = SAVE CPU-SPECIFIC IPR'S 

AC : : EXESREGSAVE = CALLED BY POWERFAIL TO SAVE CPU-SPECIFIC IPR'S ON 

ry: 3 THE STACK 

aC § : INPUTS: NONE 

at ; OUTPUTS: 

AC 733; RO DESTROYED 

AC 734: OTHER GENERAL REGISTERS PRESERVED 

OAC t 5 IPR'S SAVED ON THE STACK AS FOLLOWS: 

OAC t $ : 11/780: 11/750: 11/730: 11/790:  uVAX I: 
OAC 7 § : O(SP) PME PME PME ACCS (none) 
OAC 740: 4(SP)  SBIMT TBDR CSWP 

OAC 741 : B(SP) CADR PME 

OAC 148 : 
ya a 
QOAC 145 .ENABL LSB 

OAC rs EXESREGSAVE:: ; SUBROUTINE ENTRY 

01 BA OOAC 749 POPR. #*M<RO> [CLEAR RETURN FROM STACK 

OAE 750 
OOAE 751 

OAE 136 

OAE 75 

SAE Pea 

7E 3D 0B OAE 166 MFPR  #PR730$_PME,-(SP) ;SAVE PERFORMANCE MONITOR ENABLE 
ee 
60 17 0081 ae JMP (RO) ;DONE, RETURN 

O03 ahs 
00B3 784 .DSABL LSB 


ERRSUB730 
v04-002 


DOOOQVOOCVOOOOCOOOCOCO 


STitttitt dt ttt ttt tttot 


USVI AIN ANIA AINA AAI AAA AAA 


01 BA 


OoOoooococ So 


© DD DD www www 


! 


ooooo 


CODODIUIUIWW 


oOo 
> 


“e 


A 


‘_ 
ll 
Dz 
meme 
nm 


1096909 09 C0 C9 09 09 C9 C909 0909 08 III 


MINIM $$ -DODKCOCOCOCOCOCOOOOOO0OOOMMDdE 


FWNOWNOODA FWNA -OO NOAUE WN 0 ODNOAUL WO OOO 
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3+ 
; EXESREGRESTOR - 


Page 13 
~~ 


DO 
ma 


7 
VAX 11/738 Hk tb 4 9 33:38 AX/VMS Macro V04-00 
CPU-SPECIFIC IPR 13-SEP-1984 15:49: SYSLOA.SRCJERRSUB.MAR; 5 


«SBTTL EXESREGRESTOR = RESTORE CPU-SPECIFIC IPR'S 
CALLED BY POWERFAIL RECOVERY TO RESTORE CPU-SPECIFIC 


on 


T 


; IPR'S FROM THE STACK. 

: INPUTS: 

: R6 = TOP OF STACK 

; STACK SET UP AS DEFINED IN OUTPUTS OF EXESREGSAVE. 

> OUTPUTS: 

F RO DESTROYED 

; OTHER GENERAL REGISTERS PRESERVED 

: CPU-SPECIFIC IPR'S RESTORED FROM STACK 

; R6 = ADDRESS OF 1ST CPU-INDEPENDENT SAVED IPR 
.ENABL LSB 

EXESREGRESTOR: : ; SUBROUTINE ENTRY 
POPR - #*M<RO> [CLEAR RETURN FROM STACK 
MTPR —- (R6) +, #PR730$_PME ;RESTORE PERFORMANCE MONITOR ENABLE 
JMP (RO) ;DONE, RETURN 
.DSABL LSB 


ER! 


7 
ERRSUB730 = ERROR SUBROUTINES FOR V x 11/736 =SEP=1984 AX/VMS Macro v04-00 Page 14 
vayetE EXESINIPROCREG = CPU POPPE ANENT INITIALIZ : ~$FE= 1382 90:75 +38 YOYSLOA. SREJERRSUB_MAR: 5 9 ab 
BA 46 @: .SBTTL EXESINIPROCREG = CPU-DEPENDENT INITIALIZATION OF IPR'S 
BA 48 : EXESINIPROCREG = PERFORM INITIALIZATION OF INTERVAL TIMER AND 
BA 43 ; CPU-DEPENDENT REGISTERS. CALLED FROM INIT AND POWERFAIL. 
BA 851 : INPUTS: 
BA S2;: 
BA : ; NONE 
BA 4; 
BA 855 ; OUTPUTS: 
OBA 36 ; 
BA 857; NONE 
BA 38 : 
OBA 85 
OBA EXESINIPROCREG:: ; INIT PROCESSOR REGISTERS 
OBA 5 
90" 1 00BA i: BBC S*#EXESV V-CRENABL - ; BRANCH IF FLAG CLE"? 
12 90000000" F OBC 87 a#EXESGL FLAGS, 208 : (1GNORE ERRORS) 
50  00000000'9F v0 00C 878 MOVL § a#MMGSGL"SBICONF,RO t GET ADDR OF RERORY CONTROLLER 
50 60 00 6 C 7 MOVL (RO) ; EONF 16 REGISTER (1ST SLOT) 
04 AO 10000000 8F C8 Oc¢ 80 BISL #<1a28>,4(RO) : SET CRD REPORT BIT 
00" €0 bone 925 208: BBS S*#EXESV_NOCLOCK , 
OE 00000000' 9F 9006 3 : a#EXESGL-FLAGS, 36$ ; BRANCH IF NOT USING CLOCK 
G0p¢ 931 
ODC 935 
00DC + 939 
19 FFFFD8FO 8F DA ours 941 MTPR = #=<10*1000>,S*#PR730$_NICR ; LOAD NEXT INTERVAL REGISTER 
18 80000001 8F DA O0E3 944 MTPR  #*X800000D1,S*#PRS$_ICCS ; CLEAR ERROR AND START CLOCK 
05 OOFA 945 30$: RSB : AND RETURN 
00EB 946 
O0EB 962 


7 
ERRSUB730 = ERROR SUBROUTINES FOR VAX 11/730 =SEP=-1984 AX/VMS Macro V04-00 Page 15 
y042002 SYSLSCLRSBIA moet RHC HS Mey a tat taro Tee 9 13) 
EB . ar .SBTTL SYSLSCLRSBIA 
EB : : SYSLSCLRSBIA - = ON N 11/790. CL LEAR BIA ERROR REGISTERS 
4 gi 3 11 11/750, 11/730, AND MICRO-VAX I, THIS IS A NOP 
eB 990 THIS ROUTINE I$ CALLED TO CLEAR OUT SBIA ERROR BITS AFTER A MACHINE CHECK 
EB 333 ; OCCURS (WHEN MACHINE CHECK IS HANDLED LOCALLY). 
EB 93 : THIS ROUTINE SHOULD BE CALLED AT IPL 31. 
OEB 398 : INPUTS: 
BEB 899 ; ABUS_TYPE - AN ARRAY TYPE CODES; IDENTIFIES EACH ADAPTER ON THE 
0&B 998: ABUS_VA - AN ARRAY OF ADAPTER SPACE VA'S FOR EACH ADAPTER 
O0&B 999; ON THE ABUS. 
0&B 1000 : 
O£EB 1001 ; OUTPUTS: 
OOEB 1 0¢ : SBI ERROR BITS ARE CLEARED FOR EACH SBIA ON THE ABUS. 
O&B 1003 : ALL REGISTERS PRESERVED. 
OOEB 1004 ;++ 
00EB 1005 SYSLSCLRSBIA:: 
05 O00EB 102 RSB : AND RETURN 


7 
ERRSUB730 OUTINES FOR VAX 11/730 SEP=1984 00:54:20 YAX/VMS Macro v04-00 Page } 
vo4=002 1$=$EP-1986 95:29:99 ESYSLOA.SReSeRKsUacmaR:s §=— 9 12) 


i ~SBTTL wid 438 

: EXESTEST_CSR = TEST A UNIBUS CONTROLLER CSR FOR EXISTENCE 

¢ THIS TEST IS CPU-DEPENDENT. THE FOLLOWING CPU'S ARE SUPPORTED: 
11/788 “NON-EXIS ane cue ce mesUT IN THE A RACH fue ve ceeds ER. 
M 


NNECT A_TEMPORARY 
SR, AND RESTORE THE 


~< 
Dw 
m 
"oO 
mo 
za 

wm—« 


T 
T 
C 
$ SAM 

S$ SAME A 
ON 

; THIS SUBROUTINE SHOULD BE CALLED VI 
; INPUTS: 


RO 
R6 


; OUTPUTS: 


CSR ADDRESS 
ADAPTER CONFIGURATION REGISTER ADDRESS 


Sete Se Ge Be Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge See Ge Se Ses 
= 
— 
o 
z2aa~I~s 
oO 
a 
< 
= 
=< 
—_ 
' 
> 
o 
_" 


RO LOW BIT SET/CLEAR FOR EXISTENT/NONEX CSR 
OTHER REGISTERS PRESERVED. 


-ENABL LSB 
EXESTEST_CSR:: ; SUBROUTINE ENTRY 
PUSHR #*M<R1,R2> ;SAVE REGISTERS 


00000024 
00000003 


E E 
E 
E 
E 
E 
E 
OE 
51 56 00000800 of C1 E 
51 9 D1 F 
1A F 
50 1 9A F 
8 11 4 
51 00000000'GF 00 


T INTO 750 MACHINE CHECK FRAME 
ey : i 


MCK_BER = *X24 30 atta’ 
: OSITION FOR NON-EXISTENT MEMORY 


FFS 
; FOR 
NEX = 3 ; BIT 


: Test for non-UNIBUS 1/0 space addres first (IDC specific code) 


ADDL3 #51284,R6,R1 :GET LOWEST LEGAL ADDRESS 
CMPL [I$ CSR GREATER 
[IF YES, DO CH Eck 
$-NORAA, RO ;NO CHECK TO DO, EXIT 


BGTRU 
MOVZBL 
BRB 
10$: $GL_SCB,R1 GET SCB ADDRESS 
ny CURRENT MCHECK eye ADDR 
52. SE Se ky ten STACK POSITION 
04 Al e's OF NNECT Hh a yg HANDLER 
50 1 A 


1B Oot 


wv 

c 

“ 

= 

= 
B-ONFfQOQ “2D 
oo 


° 

z 

3a 
“2ooco 

e < 

~ 

@ 
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R 
R 
1 
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1 
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1 
1 
1 
1 
4 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
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1 
1 
1 
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a kk tt 2 oF AQHODOOOOCOCOCOCOOCOOCOCOCOOGOOOVOBOOOOOOOCOOooOoO 


PRB BB BBB BB MMMM AAP NININI AAA DE SS BB ES EEE EIN 


SODA WE WD OO NAME WINONA - O OO NOAM EIN O OD NA UE WIN O OOO NAME WI Ou 


BRB TEST_DONE 


? 
ERRSUB730 = ERROR SUBROUTINES FOR VAX 11/730 16-SEP-1984 00:54:20 VAX/VMS Macro v04-00 Page 17 
042002 EXESt 19x SEb= 138% 98:25:89 PRNLNRS Bacto ett nss | aee OA, 


+ : TEMPORARY CSR TEST MACHINE CHECK HANDLER 


BA 
05 


OR SUBR 
EST_CSR 
119 11 
119 11 
119 11 
119 1154 
119 1155 -ALIGN LONG ;REQ'D MACHINE CHECK ALIGNMENT 
11C «(11 g MCHK_HANDLER: : 
He 146 
26 OF ODA 11¢ 1183 MTPR = #*XF ,#PR730$_MCESR :CLEAR NON-EX MEMORY CONDITION 
11F 1189 
WF 11 
50 08 vO O11F 117 MOVL  #<1@NEX>,RO ; SETUP 
0c GE Di (01 117 CMPL = (SP) , #*xOC :1$ THIS A 730 FRAM 
4 13 0125 117% BEQL [YES, THEN DON'T CHE CK FURTHER 
50 24 AE 00 01 1175 MOVL MCK_BER(SP),RO [SAVE BUS ERROR REGISTER 
5E 52 DO 0128 1176 50$ MOVL [CLEAR MCHECK INFO FROM STAC 
E2 03 EI 1127 BBC #NEX,RO,OK [MEMORY EXISTS, PARITY FAILURE 
132 11 
132 1188 NONEX_DEV: F 
50 ps 0132 11 LRL = RO [SET STATUS TO FAILURE 
134 1190 TEST_DONE: 
04 Al BEDO 0134 1191 Ls &CRI) ;RESTORE SYSTEM MCHECK HANDLER 
1 : 1198 TEST_DONE 2: 
06 0138 119 POPR  #*M<R1,R2> sRESTORE REGISTERS 
013A 119% 
0138 1195 


RSB RETURN RESULT TO CALLER 
-DISABLE LSB 


7 
= ERROR SUBROUTINES FOR VAX 11/738 1 = $EP-1984 00:54:20 YAX/ VMs Macro v04-00 Page 
ADPLINK = LINK ADAPTER CONTROL BLOCK INT 13-SEP-1984 15:49: SYSLOA. SRCJERRSUB.MAR; 5 
8 1 7 : -SBTTL ADPLINK = LINK ADAPTER CONTROL BLOCK INTO ADP LIST 
a } ; ADPLINK LINKS THE ADAPTER CONTROL BLOCK TO THE END OF THE ADP LIST 
138 1 + INPUT: 
1 1 ; R2 = ADDRESS OF NEW ADP 
1 1 : OUTPUTS: 
138 1204: AD 1s LINK TO THE END OF THE ADPLIST LOCATED BY IOCSGL_ADPLIST. 
1 1205 ; RO,R1 destroyed. 
1 1598 é= 
1 1 
138 1 § ADPLINK: : ; 
50 FFFFFFFC'SF 9€ 01 1 MOVAB @#<IOCSGL_ADPLIST-ADPSL_LINK>,RO 
142 1210 ; START OF LIST 
5104 Ag 00 142 1211 10$ MOVL ADPSL_LINK(RO),R1 ; FLINK TO FIRST ENTRY 
9 1 146 1 1g BEQL 208 ; END 
50 51 00 0148 121 MOVL  R1,RO : TRY AGAIN 
FS) 11 «0148 «1014 BRB 1 ; 
04 a0 52 00 014D 1215 208: MOVL  R2,ADP$L_LINK(RO) + CHAIN NEW ADP TO END OF LIST 
05 0151 1 16 RSB ; AND RETURN 
O18 121 
0152 1218 END 
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NORMA 
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AX/VMS Macro v04-00 
SYSLOA.SRCJERRSUB.MAR;5 
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ie 
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cae 


= 00000800 
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oS 


ERRSUB730 
Psect synopsis 


PSECT name 


Phase 


Initialization 
gonnene processing 


s 1 
Syabol table sort 
Pass 
Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


70472 bytes (1 


Macro Library name 


5 SYS.OBJILIB. 
$5eespuase Fave sBISTARL 
ToTAie (all Libraries) 


Page faults 


~ ERROR SUBROUTINES FOR VAX 11/730 


16-SEP-1 254: AX/VMS M v04-00 
1$-3Ep-4 be 13:25 749 :38 SYSLOA. SRC JERR SUB .MAR; 5 
$e morc e ese sceocaenn + 
: Psect synopsis ! 
Geweeeceseoeoesea} 
Allocation PSECT No. Attributes 
6° 0 9 ( 9.) 0 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD T NOVEC BYTE 
: ' -) Q1 ¢ 1.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
83 99 ( 8°} § §°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
0 ( 338.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 


gem ener ew cw es ee w ec ee ase n $ 


! Performance indicators ! 


barnes nt es ece seer e cece ese nat 


CPU Time 


G :00: 
OBE 
131 : % 

9 0: 

6 
0 


A BS 


Elapsed Time 


0:00: 
ie : 
:00 


the 7¥ orking set Limit was 1500 pages. 

8 pages) of virtual memory were used to buffer the intermediate code. 

{here were 60 pages of symbol table space allocated to hold 1061 non-local ye 14 Local symbols. 
1222 source Lines were read in Pass 1 

20 pages of virtual memory were used to define 


» producing 16 object records in Pass 
%9 macros. 


bore em wee et emer moe eee wee + 


! ; Macro library statistics ! 


we me OR Ee RO ee me RY 


B;1 10 
PaLe;2 


1124 GETS were required to define 16 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:ERRSUB730/0BJ=0BJ$:ERRSUB730 MSRC$:CPUSW730/UPDATE=(ENHS: CPUSW730) +MSRC$: ERRSUB/UPDATE=(ENH$:ERRSUB) +EXECMLS$/LIB 
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L EQUIPMENT 
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